! file name=sanm.h
      real(NBF),dimension(2) :: cosal,cosar,sinbl,sinbr
      real(NBF),pointer,dimension(:) :: j1_err,j2_err,j1_old,j2_old
      real(NBF),pointer,dimension(:,:) :: eigvec1,eigvec2,imq1,imq2,scs,fsc,tcp01,tcp11,tcp21,tcp31,tcp41,tcp02,tcp12,tcp22,tcp32,tcp42,tcosa1,tcosa2,tsinb1,tsinb2 		 
      real(NBF),pointer,dimension(:,:,:) :: ksq,krt,kqu,ksx,rkrt,rksq,rkqu,rksx,sigd,rsigd,qs,cosa,sinb,jnet,sflux,cf
      real(NBF),pointer,dimension(:,:,:,:) :: cp
!
      common/sa/cosal,cosar,sinbl,sinbr
      common/sb/j1_err,j2_err,j1_old,j2_old
      common/sc/eigvec1,eigvec2,imq1,imq2,scs,fsc,tcp01,tcp11,tcp21,tcp31,tcp41,tcp02,tcp12,tcp22,tcp32,tcp42,tcosa1,tcosa2,tsinb1,tsinb2
      common/sd/ksq,krt,kqu,ksx,rkrt,rksq,rkqu,rksx,sigd,rsigd,qs,cosa,sinb,jnet,sflux,cf
      common/se/cp

